Apple Lisa Computer Technical Information 



Apple Lisa 

Operating System Library 

Pascal Interface 




This is a listing of the Pascal interface to the Lisa's operating system library. This OS 

provided a multi-tasking virtual-memory process protected architecture. The file system was 

hierarchical and supported file recovery via disk block tags. The file system also supported 

disk file labels which were small files that could be assigned to each file and which were a 

precursor to the Macintosh file resource fork concept. 
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Fl LE: "LI SA OS I NTERFACE. TEXT" 
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APPLE LISA OPERATING SYSTEM PASCAL INTERFACE 



USES {$U-} {$U syscal I } SYSCALL; 

{ system call definitions unit } 
INTRINSIC; 

{ Copyright 1983, 1984, Apple Computer Inc. } 

I NTERFACE 



CONST 

maxename = 32; 
maxpat hname = 255; 
maxi a be I _ s i z e = 128; 
I enexname = 16; 
si ze ex da t a = 11; 



si ze_ et ext = 9; 
size wa i 1 1 i s t = 10; 



c a I I t e r m = 0; 
ended = 1; 

self ki I led = 2 
ki I led =3 

fthrterm =4 
badsyscal I = 5 
baderrnum = 6 
swaperror = 7 
st k_ over f I ow = 8; 
dat a_ overf I ow = 9; 
pari tyerr = 10; 



def _di vzero = 

d e f v a I ue oob = 

def_ovfw = 

def_nmi_key = 

def range = 

def _st r_i ndex = 

buserror =21; 
addrerror =22; 
i 1 1 g~ i n s t = 23; 

pr i v vi ol at i on = 
I i ne" 1010 = 26; 
I i ne'llll = 27; 



11 
12 
13 
14 
15 
16 



24; 



maxi mum I engt h of a file system object name } 
maximum length of a file system pathname } 
maximumsize of a file label, in bytes } 
I engt h of except i on name } 

48 bytes, exception data block should have the same 
size as reventblk, received event block } 



event text size ■ 
size of wa i t list 



40 bytes 
- shoul d 



} 
be 



same as reqptrl i st } 



unexpectedex = 29; 



exception kind definitions for ' SYS. TERMI NATE' 
exception } 

process called ter mi nate process } 
process executed 'end' statement } 
process called kill process on self } 
process was killed by another process } 
process's father is terminating } 
process made invalid sys call - subcode bad } 
process passed bad address for errnum parm } 
process aborted due to code swap-in error } 
process exceeded max size ( +T nnn) of stack } 
process tried to exceed max data space size } 
process got a parity error while executing } 

default handler for div zero exception was called } 
for val ue oob except i on } 
for overf I ow except i on } 
for NMI key except i on } 

for 'SYS VALUE OOB' excep due to value range err } 
for ' SYSl VALUER OOB' excep due to STRING index err} 

bus error occurred } 

address error occurred } 

illegal instruction trap occurred } 

privilege violation trap occurred } 

line 1010 emulator occurred } 

line 1111 emulator occurred } 



{ an unexpected exception occurred } 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



di vzero 
val ue oob 
ovf w 
nmi key 
val ue range 
st r i ndex 



31 
32 
33 
34 
35 
36 



{ exception kind definitions for hardware exception } 



{ excep kind for value range and STRING index error } 
{ Note that these two cause ' SYS. VALUE. OOB' excep } 



{DEVICE. CONTROL FUNCTIONS} 



dvPar i ty = 
dvOutDTR = 
dvOutXON = 
dvOut Del ay 
dv Baud = 5; 
dvl nWai t = 



4; 



6; 



CONSOLE} 



dvl nDTR = 
dvl nXON = 
dvTypeahd 
dv Di scon = 
dvOut NoHS 
dvErrStat 
d v Get Event 
dvAutoLF = 
d v Di skStat 



7; 
8; 
= 9; 

10; 
= 11; 
= 15; 

= 16; 

17; 

= 20; 



d v Di skSpare = 21; 



{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{RS- 232, 

{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{RS- 232 } 

{PROFI LE} 

{CONSOLE} 

{RS- 232, CONSOLE, 

{TWIGGY, PROFILE} 

{TWIGGY, PROFILE} 



PARALLEL PRI NTER} {not yet} 



position numbers: } 



{Generic 'slot' 
cd slotl = 1; 
c d_ s I ot 2 = 2; 
cd.sl ot 3 = 3; 
c d~ sc c = 10; 
cd.paraport = 11; 
cd j ntdi sk = 12; 
cd.sony = 13; 
c d~ t wi ggy = 14; 
cdconsol e = 15; 

{ c pu board values (see minfo), showing which cpu board type is present: } 
c pub I i sa =0; 
cpub.pepsi = 1; 

{io board values (see minfo), showing which io board type is present: } 
i o b _ I i s a =0; 
i obpepsi = 1; 
i obsony = 2; 



TYPE 
pat hname 
e_ name 
namest r i ng 

proci nf oRec 



STRI NG [ max pat hname] ; 
STRI NG [ max ename] ; 
STRI NG [201; 



record 
progpat hname 
gl obal i d 
fat her.i d 
pri ori ty 
state 
dat a.i n 

end; 



pat hname; 
LONGI NT; 
LONGI NT; 
1.. 255; 
( pact i ve, 
BOOLEAN 



psuspended, pwai t i ng); 



Tdstype = (ds.shared, ds.private); { types of data segments } 

dsi nf oRec = record 

mem size : LONGI NT; 
disc. size : LONGI NT; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 



numb open 


INTEGER; 


Idsn 


INTEGER; 


boundF 


BOOLEAN; 


presentF 


BOOLEAN; 


cr eat or F 


BOOLEAN; 


rwaccess 


BOOLEAN; 


segptr 


LONGI NT; 


vol name 


e name; 


end; 





t ex name = STRING [I en exname]; 

longadr = "LONGI NT; 

t _ ex_ state = (enabled, queued, ignored); 

pexdata = A t_ex_data; 

t ex data = array [ 0, , si zeexdat a] of LONGI NT; { exception data bl k } 



{ exception name } 
{ except i on state } 



t ex sts 



record 

ex_ occurred f : BOOLEAN; 

ex_ state : t _ ex_ state; 

numexcep : INTEGER; 

hdl _ adr : I ongadr; 
end; 



{ except i on status } 

{ except i on occurred f I ag} 

{ except i on state } 

{ number of except i ons q' ed} 

{ handl er address } 



penvbl k 
env bfk = 



= env 
record 

PC 

sr 
dO 
dl 
d2 
d3 
d4 
d5 
d6 
d7 
aO 
al 
a2 
a3 
a4 
a5 
a6 
a7 
end; 



blk; 



LONGI NT, 


1 NTEGER, 


LONGI NT 


LONGI NT, 


LONGI NT 


LONGI NT, 


LONGI NT, 


LONGI NT, 


LONGI NT, 


LONGI NT 


LONGI NT, 


LONGI NT, 


LONGI NT, 


LONGI NT, 


LONGI NT 


LONGI NT, 


LONGI NT 


LONGI NT, 



{ environment block to pass to handler } 
{ program counter } 
{ status regi ster } 
{ data registers - 7 } 



{ address regi sters ■ 7 } 



p_t er mexdat a = A t ermexdat a; 
term ex data = record 



case excepki nd : LONGI NT of 
c a 1 1 term, 

ended, 

self kill ed, 

killed, 

fthrterm, 

bad syscal I , 

baderrnum, 

swap_error, 

st k_ over f I ow, 

dat aoverf I ow, 

pari tyerr : (); 



{ terminate exception data block } 



i I I g_i nst, 

pr i v vi ol at i on, 

I i ne 1010, 



{ due to process termination } 



{ due t o i I I egal i nst r uct i on, 
pr i vi I ege vi ol at i on } 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 



lin 
def 
def 
def 
def 



def 
def 



bus 
add 



e.llll, 
_di vze 
_ va I ue_ 
_ ovf w, 
_ n mi _ k e 

(sr : 
pc : 
.range, 
st r in 



( val ue 

upper 

I ower 

ret ur 

cal I e 

_ er r or , 

r error 

(fun f 



ro, 
oob, 

y 

I NTEGER; 
LONGINT) 

dex 



check 
bound 
bound 

npc 

r a6 



{ due to line 1010, 1111 emulator } 



{ terminate due to default handler for 
hardware except i on } 

{ at the time of occurrence } 

{ terminate due to default handler for 
1 SYS. VALUE. OOB' excep for val ue 
range or STRI NG i ndex error } 

I NTEGER; 

I NTEGER; 

I NTEGER; 

LONGI NT; 

LONGI NT); 

{ due to bus error or address error } 



i el d : packed record 

f il ler : 0. . $7ff; 



end; 



acces 
i nst. 
sr.er 
pc _ er 



r _ w_ f I a g 
i n.f I ag 
f un code 
end; 

s adr : LONGI NT; 

regi ster : I NTEGER; 

ror : I NTEGER; 

ror : LONGINT); 



BOOLEAN; 
BOOLEAN; 
0..7; 



{ one I NTEGER } 
{ 11 bits } 



{ 3 bits } 



p.hard.ex.dat a 
hard ex data = 



= A hard.ex 
record 
case excep 
di v zero, 
:"(sr : 
pc : 
val ue.range, st r 
: (val ue_ check 
upper _ bound 
I ower. bound 
ret urn. pc 
cal I er_a6 
end; 



data; 

{ hardware 
ki nd : LONGI NT of 
val ue oob, ovf w 
I NTEGER; 
LONGINT); 

i ndex 

I NTEGER; 

I NTEGER; 

I NTEGER; 

LONGI NT; 

LONGI NT); 



except i on data bl ock } 



accesses = (dread, dwrite, append, private, gl obal ref num) ; 

mset = set of accesses; 

iomode = (absolute, relative, sequential); 

Ul D = record { u n i que i d} 

a,b: LONGINT 
end; 



t i mest mp i nt erval = record 

sec : LONGI NT; 
msec : 0. . 999; 
end; 



{ t i me i nt erval } 
{ number of seconds } 
{ number of milliseconds within a second } 



info.type = (device.t, volume.t, object. t); 

devtype = (diskdev, pascalbd, seqdev, bitbkt, non.io); 

filetype = (undefined, MDDF file, rootcat, freelist, badblocks, 
sysdata, spool, exec, usercat, pipe, bootfile, 
swapdata, swapcode, ramap, userfile, ki I I edobj ect ) ; 

entrytype= (emptyentry, catentry, linkentry, fileentry, pipeentry, ecentry, 
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000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 



ki 1 1 edent ry) ; 

{ Per-file version control information record } 

Bui I d Co n t rol = record 

r el ease number : INTEGER; { public release number } 
bui I dnumber : INTEGER; { internal build membership } 
compat i bi I i t y _ I evel : INTEGER; { local compatibility level 
revi si onj evef : INTEGER; { iteration of file } 
end; 

f s _ i nf o = record 

name : e name; 
di r pat h : pat hname; 
ma c hi ne i d : LONGI NT; 
fs. overhead : I NTEGER; 
resul t _ scavenge : I NTEGER; 
passwd_ present : BOOLEAN; 
case otype : i nf o_type of 
devi cet, vol ume_t : ( 

iochannel : INTEGER; 

slot.no : I NTEGER; 

devi cenumb: I NTEGER; 

devt : devtype; 

ejectable, removable: BOOLEAN; 

fs size : LONGI NT; 

vol. size : LONGI NT; 

bl ockst r uct ured, mounted 

opencount : LONGI NT; 

privatedev, remote, lockeddev 

mount. pendi ng, unmount. pendi ng : 

vol name, password : e name; 

f sversi on, vol num : I NTEGER; 

vol id : Ul D; 

backup. vol id: Ul D; 

vol sequence : I NTEGER; 

blocksize, datasize, clustersize, 

label size : I NTEGER; 

freecount : LONGI NT; 

DTVC, DTCC, DTVB, DTVS : LONGI NT; 



BOOLEAN; 



BOOLEAN; 
BOOLEAN; 



filecount : INTEGER; 



mast er.copy.i d, copy.thread : LONGINT; 

over mount stamp : Ul D; 

boot.code": INTEGER; 

boot _ envi ron : I NTEGER; 

privileged, wr i te.protected : BOOLEAN; 

master, copy, copy flag, scavenge flag 

vol I eft mounted : BOOLEAN ); 



BOOLEAN; 



obj ect.t 
size: 
psi ze 
I psi ze 
f type 
etype 



LONGINT; 
LONGINT; { 

: INTEGER; { 
f i I etype; 
ent rytype; 
DTC, DTA, DTM, DTB, 
ref num : I NTEGER; 
f mark : LONGI NT; 
a c mode : mset; 
nreaders, n writers, 
f uid : Ul D; 
user.type : I NTEGER; 
user subtype : I NTEGER; 
systemtype : I NTEGER; 
eof, safety. on, kswitch 



physi cal file size in bytes } 

logical page size in bytes for this file } 



DTS : LONGI NT; 



nusers : INTEGER; 



BOOLEAN; 



private, locked, protected, master. file : BOOLEAN; 
file scavenged, file closed by OS, file left open 
f i I e'porti on : I NTEGER; 



BOOLEAN; 
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000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 



bui I d _ i nf o : Bui I d Co n t rol ) 



Q Info 



end; 

record 

name 

etype 

DTC 

DTM 

si ze 

psi ze 

f s_ over head 

ma s t e r 

protected 

safety 

I ef t _ open 

scavenged 

cl osed_ by_ OS 

nreaders 

nwri t ers 

I evel 
end; 



e_name; 

ent rytype; 

LONGI NT; 

LONGI NT; 

LONGI NT; 

LONGI NT; 

I NTEGER 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
I NTEGER 
I NTEGER 
I NTEGER 



dctype 



record 

dcversi on : I NTEGER; 

decode : INTEGER; 

dedata : array [0..9] of LONGI NT; { user/driver defined data } 
end; 



t wai 1 1 i st 



t eheader 



record 
I engt h 
ref num 

end; 



I NTEGER; 
array [ 0. 



{ wa i t list } 
si ze.wai tl ist] of INTEGER; 



record 

send.pid : LONGI NT; 

event type : LONGI NT; 
end; 



{ event header } 

{ sender' s process i d } 

{ type of event } 



t _ event _ t ext = array [ 0. . si ze.etext] of LONGI NT; 
prevent bl k = A r_event bl k; 
r _ event bl k = record 

event header : teheader; 

event _t ext : t _ event _ t ext ; 
end; 

p_s_eventblk = A s_eventblk; 
s_event bl k = teventt ext ; 



t i me r e c 



record 
year : 
day : 
hour : 
mi nut e 
second 
msec : 

end; 



INTEGER; 
1..366; 
■23. .23; 
: -59. .59; 
: 0..59; 
0..999; 



{ Julian date } 



chnki nd = 
t c h n sts 



[ wai tec, cal I _ ec ) 
record 
chntype : 

num event s 
openrecv 
open send 
ec_name : 
end; 



chn ki nd; 

: INTEGER; 
: INTEGER; 
: INTEGER; 
pathname; 



channel status } 

channel type } 

number of events queued } 

number of opens for receiving } 

number of opens for sending } 

event channel name } 
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000392 
000393 
000394 
000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 



{conf i gurat i on st uf f : } 
si otarray = array [1..3] of INTEGER; 

mi nf o = record 

cpu board, ioboard, memsize: LONGINT; 
end; {of mi nf o} 



{ Lisa Office System parameter memory type } 

pmByte = -128. . 127; 

pMemRec = array[0. . 63] of pmByte; 



cdposi t i on 



record 

slot: pmbyte; 

chan: pmbyte; 

dev: pmbyte; 
end; 



{slot number} 
{channel number} 
{device number} 



Conf i gDev = record 

pos: exposition; {device position} 

nExtWords: pmbyte; {number of valid extension words} 
Extwords: a r r ay [ 1 . . 3] of INTEGER; {extension words} 

DriverlD: LONGINT; {ID of driver controlling device} 

DevName: ename; {device name} 
end; 

cd infobuf = record {defines internal driver image} 
cd.driverid: LONGINT; 
cd perm: BOOLEAN; 
cd drvrname: ename; 
case cddevt: devtype of 
di skdev: 

(cd start block: LONGI NT; 
cd f s start: LONGINT; 
cdej ectabl e: BOOLEAN; 
cd removable: BOOLEAN; 
c d~ pr el oad: BOOLEAN;) 
end; {of cdi nf obuf } 



{File System calls } 

PROCEDURE MAKE. FILE ( VAR ecode: I NTEGER; VAR pat h: pat hname; I abel .si ze: I NTEGER) ; 

PROCEDURE MAKE. PIPE (VAR ecode: I NTEGER; VAR pat h: pat hname; I abel .si ze: I NTEGER) ; 

PROCEDURE MAKE. CATALOG (VAR ecode: I NTEGER; VAR pat h: pat hname; I abel .si ze: I NTEGER) ; 

PROCEDURE MAKE. LINK (VAR ecode: I NTEGER; VAR path, ref : pat hname; I abel .si ze: I NTEGER) ; 

PROCEDURE KILL. OBJECT (VAR ecode: I NTEGER; VAR pat h: pat hname) ; 

PROCEDURE UNKILL FILE (VAR ecode: I NTEGER; ref num: I NTEGER; VAR new name: e name) ; 

PROCEDURE OPEN (VAR ecode: I NTEGER; VAR pat h: pat hname; VAR ref num: I NTEGER; manip:mset); 

PROCEDURE CLOSE. OBJECT (VAR ecode: I NTEGER; ref num: I NTEGER) ; 

PROCEDURE READ DATA (VAR ecode : INTEGER; 

ref num : I NTEGER; 
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000458 
000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 



dataaddr 

count 

VAR actual 

mode 

offset 

PROCEDURE WRITE. DATA (VAR ecode 

ref num 

dataaddr 

count 

VAR actual 

mode 

offset 



LONGI NT; 
LONGI NT; 
LONGI NT; 
i omode; 
LONGI NT); 

INTEGER; 
INTEGER; 
LONGI NT; 
LONGI NT; 
LONGI NT; 
i o mo d e ; 
LONGI NT); 



PROCEDURE FLUSH (VAR ecode: I NTEGER; ref num: I NTEGER) ; 
PROCEDURE 



LOOKUP (VAR ecode 
VAR path 
VAR att ri butes 



I NTEGER; 

pat hname; 

f s _ i nf o ) ; 



PROCEDURE INFO (VAR ecode: I NTEGER; ref num: I NTEGER; VAR ref i nf o: f s.i nf o) ; 
PROCEDURE 



QUICK LOOKUP ( VAR ecode 
VAR path 
VAR I nfoRec 



INTEGER; 

pat hname; 

Q.I nfo ); 



PROCEDURE ALLOCATE (VAR ecode : INTEGER; 

ref num : I NTEGER; 

conti guous : BOOLEAN; 

count : LONGI NT; 

VAR actual : LONGI NT); 



PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



TRUNCATE (VAR ecode : INTEGER; refnum: INTEGER); 

COMPACT (VAR ecode : INTEGER; refnum: INTEGER); 

RENAME. ENTRY ( VAR ecode: I NTEGER; VAR pat h: pat hname; VAR newname : e.name ); 



READ LABEL ( VAR ecode 

VAR path 

dataaddr 

count 

VAR actual 



PROCEDURE WRITE LABEL ( VAR ecode 

VAR path 

dataaddr 

count 

VAR actual 



I NTEGER; 
pat hname; 
LONGI NT; 
LONGI NT; 
LONGI NT ) 

I NTEGER; 
p a t h n a me ; 
LONGI NT; 
LONGI NT; 
LONGI NT 



PROCEDURE MOUNT ( VAR ecode: I NTEGER; VAR vname : e.name; VAR password : e.name ; 
VAR devname : e.name) ; 

PROCEDURE UNMOUNT ( VAR ecode: I NTEGER; VAR vname : e.name ); 

PROCEDURE SET.WORKI NG.DI R ( VAR ecode: I NTEGER; VAR pat h: pat hname ); 

PROCEDURE GET. WORKI NG.DI R ( VAR ecode: I NTEGER; VAR pat h: pat hname ); 

PROCEDURE SET. SAFETY ( VAR ecode: I NTEGER; VAR pat h: pat hname; on. off : BOOLEAN ); 

PROCEDURE DEVICE. CONTROL ( VAR ecode: I NTEGER; VAR pat h: pat hname; 

VAR cparm : dct ype ) ; 

PROCEDURE RESET. CATALOG (VAR ecode : INTEGER; VAR path : pathname); 
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000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 
000550 
000551 
000552 
000553 
000554 
000555 
000556 
000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 
000582 
000583 
000584 
000585 
000586 
000587 
000588 
000589 



PROCEDURE RESET. SUBTREE ( VAR ecode : INTEGER; 

VAR path : pathname ); 

PROCEDURE GET. NEXT. ENTRY (VAR ecode : INTEGER; VAR prefix, entry : e.name) 



PROCEDURE LOOKUP. NEXT. ENTRY ( VAR ecode 

VAR pref i x 
VAR InfoRec 



I NTEGER; 
e name; 
Q'lnfo ); 



PROCEDURE SET FILE INFO ( VAR ecode : INTEGER; 

ref num : I NTEGER; 
f si : f s.i nf o ) ; 



{ Process Management system calls } 

FUNCTION My. I D : LONGI NT; 

PROCEDURE Info. Process (VAR errnum: INTEGER; proc.id : LONGI NT; 

VAR proc info : proci nf oRec) ; 

PROCEDURE Yield. CPU (VAR errnum: INTEGER; to. any : BOOLEAN); 

PROCEDURE SetPriority. Process (VAR errnum: INTEGER; proc.id : LONGI NT; 

newpri ori ty : I NTEGER) ; 

PROCEDURE Suspend. Process (VAR errnum: INTEGER; proc.id : LONGI NT; 

susp. f ami I y : BOOLEAN); 

PROCEDURE Activate Process (VAR errnum : INTEGER; proc id : LONGI NT; 

act.fami ly : BOOLEAN); 

PROCEDURE Kill. Process (VAR errnum: INTEGER; proc.id : LONGINT); 

PROCEDURE Termi nate.Process (VAR errnum: INTEGER; event _ pt r : p_ s_ event bl k) ; 

E Make. Process (VAR errnum: INTEGER; VAR proc.id : LONGINT; 

VAR progfile : pathname; VAR entryname : namestring; 
evnt.chn.ref num : I NTEGER) ; 

PROCEDURE Sched. Class (VAR errnum: INTEGER; non. preempt : BOOLEAN); 



PROCEDURE 



{ Memory Management system calls } 

PROCEDURE make dataseg) VAR errnum: INTEGER; VAR segname: pathname; 

mem size, disc size: LONGINT; VAR refnum: INTEGER; 
VAR'segptr: LONGINT; Idsn: INTEGER; dstype: Tdstype); 

PROCEDURE ki I I dataseg (VAR errnum: INTEGER; VAR segname : pathname); 

PROCEDURE open dataseg (VAR errnum: INTEGER; VAR segname : pathname; 

VAR refnum: INTEGER; VAR segptr : LONGINT; 
Idsn : I NTEGER); 

PROCEDURE close. dataseg (VAR errnum : INTEGER; refnum: INTEGER); 

PROCEDURE size. dataseg (VAR errnum : INTEGER; refnum: INTEGER; 

deltamemsize : LONGINT; VAR newmemsize : LONGINT; 
deltadiscsize: LONGINT; VAR newdi scsi ze: LONGINT); 

PROCEDURE info. dataseg (VAR errnum: INTEGER; refnum: INTEGER; 

VAR dsi nf o : dsi nf oRec); 
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000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 
000631 
000632 
000633 
000634 
000635 
000636 
000637 
000638 
000639 
000640 
000641 
000642 
000643 
000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 



PROCEDURE setaccess dataseg (VARerrnum: INTEGER; refnum: INTEGER; 

readonly : BOOLEAN); 

PROCEDURE unbi nd dataseg (VARerrnum: INTEGER; refnum: INTEGER); 

PROCEDURE bi nd.dat aseg( VAR errnum : INTEGER; refnum: INTEGER); 

PROCEDURE info.ldsn (VARerrnum: INTEGER; Idsn: INTEGER; VAR refnum: INTEGER); 

PROCEDURE fl ush dataseg) VAR errnum: INTEGER; refnum: INTEGER); 

PROCEDURE mem.i nfo(VAR errnum: INTEGER; 

VAR swapspace, dataspace, 

curcodesi ze, maxcodesi ze: LONGINT); 

PROCEDURE info addr es s ( VAR errnum: INTEGER; address: LONGINT; 

VAR refnum: I NTEGER); 

{ Exception Management system calls } 



PROCEDURE declare. excep.hdl (VARerrnum: INTEGER; 

VAR excepname : texname; 
ent rypoi nt : I ongadr) ; 

PROCEDURE disable. excep (VAR errnum : INTEGER; 

VAR excepname : t. ex. name; 
queue : BOOLEAN); 

PROCEDURE enable. excep (VAR errnum: INTEGER; 

VAR excepname : t. ex. name); 

PROCEDURE signal. excep (VAR errnum: INTEGER; 

VAR excep name : t. ex. name; 
excep. data : t. ex. data); 

PROCEDURE info. excep (VAR errnum : INTEGER; 

VAR excepname : t. ex. name; 
VAR excep.status : t.ex.sts); 

PROCEDURE flush. excep (VAR errnum : INTEGER; 

VAR excep name : t. ex. name); 



{ Event Channel management system calls } 

PROCEDURE make. event. chn (VARerrnum: INTEGER; 

VAR event. chn. name : pathname); 

PROCEDURE ki I I. event. chn (VARerrnum: INTEGER; 

VAR event. chn. name : pathname); 

PROCEDURE open. event. chn (VAR errnum : INTEGER; 

VAR event chn name : pathname; 
VAR refnum : INTEGER; 
VAR excep name : t. ex. name; 
receiver '. BOOLEAN); 

PROCEDURE close event chn (VAR errnum : INTEGER; 

refnum : I NTEGER); 

PROCEDURE info event chn (VAR errnum : INTEGER; 

refnum : I NTEGER; 
VAR chn.i nf o : t.chn.sts) ; 
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000656 

000657 PROCEDURE wait event chn (VARerrnum: INTEGER; 

000658 VAR wait I i st : t waitl i st; 

000659 VAR ref num : I NTEGER; 

000660 event ptr : p r eventblk); 
000661 

000662 PROCEDURE flush event chn (VAR errnum: INTEGER; 

000663 ref num : I NTEGER); 
000664 

000665 PROCEDURE send event chn (VAR errnum : INTEGER; 

000666 ref num : I NTEGER; 

000667 event _ pt r : p_s_event bl k; 

000668 interval : ti mestmpi nterval ; 

000669 cl kt i me : t i me rech 
000670 

000671 

000672 { Timer FUNCTIONS system calls } 

000673 

000674 PROCEDURE delay. time (VAR errnum: INTEGER; 

000675 interval : ti mestmpi nterval ; 

000676 cl kt i me : t i me r e c ) 7 
000677 

000678 PROCEDURE get. ti me (VAR errnum : INTEGER; 

000679 VAR gmt time : time rec); 
000680 

000681 PROCEDURE convert. time (VAR errnum: INTEGER; 

000682 VAR gmttime : time. rec; 

000683 VAR local time : time rec; 

000684 to gmt : 'BOOLEAN); 
000685 

000686 

000687 {Configuration utilities: } 

000688 

000689 PROCEDURE CDI NFO( VAR error: INTEGER; 

000690 the pos: cd posi ti on; 

000691 VAR the i nfo: cd i nfobuf ); 
000692 

000693 PROCEDURE CDKI LL( VAR error: INTEGER; 

000694 the pos: cd posi ti on); 
000695 

000696 PROCEDURE CDMAKE( VAR error: INTEGER; 

000697 the pos: cd posi t i on; 

000698 VAR this i nfo: cd i nfobuf); 
000699 

000700 PROCEDURE MACH I NFO( VAR ecode : INTEGER; VAR the info: mi nfo); 

000701 

000702 FUNCTION ENABLEDBG( enabl ei t : BOOLEAN) : BOOLEAN; 

000703 

000704 PROCEDURE OSBOOTVOL( VAR error : INTEGER; VAR Vol name: e name); 

000705 

000706 PROCEDURE CARDS EQUI PPED( VAR error : INTEGER; 

000707 VAR i n si ot : slot array); 
000708 

000709 PROCEDURE Read PMem (VAR errnum: INTEGER; VAR my pMem : pMemRec ); 

000710 

000711 PROCEDURE Write PMem (VAR errnum: INTEGER; my pMem : pMemRec); 

000712 

000713 PROCEDURE Get Nxt Conf i g( VAR errnum: INTEGER; VAR Next Ent ry: LONGI NT; 

000714 VAR PMrec: PMemRec; VAR config: ConfigDev); 
000715 

000716 PROCEDURE Put Nxt Conf i g( VAR errnum: INTEGER; VAR Next Ent ry: LONGI NT; 

000717 VAR PMrec: PMemRec; VAR config: ConfigDev); 
000718 

000719 

000720 IMPLEMENTATION 

000721 
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000722 
000723 
000724 



Fl Nl S 



• 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



End of File -- Lines: 724 Characters: 26905 
SUMMARY: 



Total number of files 
Total file I i nes 
Total file characters 



1 

724 

26905 
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